Internet Made Easy/Internet Made Easy.iso/IME.exe/IME.DXR/00027_Play Sound Member.ls

Text File | 2004-11-30 | 1.1 KB | 26 lines

property mySound, myChannel, myMouseEvent

on getBehaviorDescription me
  return "PLAY SOUND MEMBER" & RETURN & RETURN & "Plays a chosen sound member when the user clicks on the sprite." & RETURN & RETURN & "PERMITTED MEMBER TYPES:" & RETURN & "Graphic members/Sound members" & RETURN & RETURN & "PARAMETERS:" & RETURN & "* Play which sound?" & RETURN & "* Play sound in which channel?" & RETURN & "* Play sound on mouseUp or mouseDown?"
end

on getBehaviorTooltip me
  return "Use with graphic members." & RETURN & RETURN & "Plays a chosen sound member on" & RETURN & "either mouseUp or mouseDown."
end

on mouseUp me
  if myMouseEvent = #mouseUp then
    puppetSound(myChannel, mySound)
  end if
end

on mouseDown me
  if myMouseEvent = #mouseDown then
    puppetSound(myChannel, mySound)
  end if
end

on getPropertyDescriptionList me
  return [#mySound: [#comment: "Play which sound?", #format: #sound, #default: EMPTY], #myChannel: [#comment: "Play sound in which channel?", #format: #integer, #default: "1"], #myMouseEvent: [#comment: "Play sound on:", #format: #symbol, #range: [#mouseUp, #mouseDown], #default: #mouseUp]]
end